**Zilis, Michael and Justin Wedeking
**2020. "The Sources and Consequences of Political Rhetoric: Issue Importance, Collegial Bargaining, and Disagreeable Rhetoric in Supreme Court Opinions"
** Journal of Law and Courts, volume 8, number 2 (Fall 2020): 203-228.

use "data_zilis_wedeking.dta"


**Main manuscript
*Figure 1 - distribution of the DV
twoway (kdensity F1Neg if opt=="M",  xlab(-2 0 2 4) xtitle("Disagreeable Rhetoric") graphregion(fcolor(white)) title("") note("") legend(label (1 "Majority"))  ) ///
		(kdensity F1Neg if opt=="D", ytitle("Density") lpattern(shortdash)   title("") note("") legend(label (2 "Dissents"))) ///
		(kdensity F1Neg if opt=="C",  lpattern(longdash_dot)  title("") note("") legend(label (3 "Concurrences")) ///
		text(0.25 4.05 "Booth v. Maryland (BRW-Dissent)" .25 3.58 "Edmund v. Florida (BRW-Majority)" .4 3.14 "Dee Farmer v. Brennan, Warden (HAB-Concurrence)" ///
		.29 -2.10 "Loving v. Virginia (PS-Concurrence)" .29 -1.81 "South Dakota v. Dole (WJB-Dissent)" ///
		.28 -1.15 "Van Orden v. Perry (WHR-Majority)" .40 -.06 "US v. Cleveland Indians Baseball Co. (RBG-Majority)" ///
		.32 .22 "Gideon v. Wainwright (TCC-Concurrence)" .25 .52 "Buckley v. Valeo (WEB-Dissent)" ///
		.26 1.68 "Roper v. Simmons (AMK-Majority)", ///
		justification(center)place(center) si(small) orientation(vertical)) xtick(-2.10 -1.81 -1.15 -.06 .22 .52 1.68 3.14 3.58 4.05, nolabel tpos(in)))

		

*Table 1 - separate opinions
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D"
outreg using "Table 1a", varlabels se
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C"
outreg using "Table 1b", varlabels se	


*Table 2 - 2sls for majority opinions
reg3 (F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor year wc100s i.majOpinWriter ) ///
					(majVotes F1Nega missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter) if opt=="M", 2sls
outreg using "Table 2", varlabels se

*Figure 2 - effects on majority coalition size
margins, at(F1Nega = (-2.6 -1.4 -.69 .02 .73 1.44 3.83)) predict(equation(#2))
marginsplot, title("") xtitle("Disagreeable Rhetoric") xlabel(-2.6 "Min" -1.4 "-2 SD" -.69 "-1 SD" .02 "Mean" .73 "1 SD" 1.44 "2 SD"  3.83 "Max", labsize(small)) graphregion(fcolor(white)) addplot(kdensity F1Neg if opt=="M", xscale(r(-2.6 3.83)) xlabel(-2.6 "Min" -1.4 "-2 SD" -.69 "-1 SD" .02 "Mean" .73 "1 SD" 1.44 "2 SD"  3.83 "Max") yaxis(2) yscale(axis(2) r(0 6) off) legend(off)) ytitle("Predicted Majority Coalition Size")




**Appendix
*Table A1 - separate opinions, no fixed effects
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s if opt=="D"
outreg using "Table A1a", varlabels se
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s if opt=="C"
outreg using "Table A1b", varlabels se
	
*Table A2 - separate opinions, separated measures of negativity
reg vup dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D"
outreg using "Table A2a", varlabels se
reg vup dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C"
outreg using "Table A2b", varlabels se

reg nw dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D"
outreg using "Table A2c", varlabels se
reg nw dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C"
outreg using "Table A2d", varlabels se

reg negemo dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D"
outreg using "Table A2e", varlabels se
reg negemo dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C"
outreg using "Table A2f", varlabels se

*Table A3 - separate opinions, without collective importance
reg F1Neg dissent_totalRatio majVotes issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D"
outreg using "Table A3a", varlabels se
reg F1Neg dissent_totalRatio majVotes issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C"
outreg using "Table A3b", varlabels se
	
*Table A4 - separate opinions, by natural court
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D", vce(cluster naturalCourt)
outreg using "Table A4a", varlabels se
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C", vce(cluster naturalCourt)
outreg using "Table A4b", varlabels se
	
*Table A5 - separate opinions, by case
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="D", vce(cluster caseId)
outreg using "Table A5a", varlabels se
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl majMQStDev authorAge chiefAuthor year wc100s i.justice if opt=="C", vce(cluster caseId)
outreg using "Table A5b", varlabels se
		
*Table B1 - majority opinions, no fixed effects
reg3 (F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor year wc100s ) ///
					(majVotes F1Nega missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s) if opt=="M", 2sls
outreg using "Table B1", varlabels se
					
*Table B2 - majority opinions, separated measures of negativity
reg3 (nw dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6  specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor  year wc100s i.majOpinWriter ) ///
					(majVotes nw missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter) if opt=="M", 2sls
outreg using "Table B2a", varlabels se

reg3 (vup dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6  specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor  year wc100s i.majOpinWriter ) ///
					(majVotes vup missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter) if opt=="M", 2sls
outreg using "Table B2b", varlabels se

reg3 (negemo dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6  specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor  year wc100s i.majOpinWriter ) ///
					(majVotes negemo missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter) if opt=="M", 2sls	
outreg using "Table B2c", varlabels se

*Table B3 - majority opinions, separate models
reg F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6  specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor  year wc100s i.majOpinWriter if opt=="M"
outreg using "Table B3a", varlabels se
	
reg majVotes F1Neg missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter if opt=="M"
outreg using "Table B3b", varlabels se
					
*Table B4 - majority opinions, dissent negativity
reg3 (F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor year wc100s avgDissentNegativity i.majOpinWriter ) ///
					(majVotes F1Nega missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s avgDissentNegativity i.majOpinWriter) if opt=="M", 2sls
outreg using "Table B4", varlabels se
					

*Table B5 - majority opinions, by natural court
reg3 (F1Neg dissent_totalRatio majVotes relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud precedentAl ///
					majMQStDev authorAge chiefAuthor year wc100s i.naturalCourt ) ///
					(majVotes F1Nega missingMember relativeCollectiveImportance_all issues1_6 specialConcur_total regConcur_total  anyJud ///
					precedentAl majMQStDev   ///
					authorAge chiefAuthor year  ///
					wc100s i.majOpinWriter i.naturalCourt) if opt=="M", 2sls
outreg using "Table B5", varlabels se


